home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / puzzle.src < prev    next >
Text File  |  1990-10-18  |  3KB  |  76 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ by Hamish McGovern.
  3. DIR
  4.   PLAY
  5.     \<< INIT 0 TIME 11 \-> KN T EM
  6.       \<<
  7.         WHILE 1
  8.         REPEAT "TIME: " TIME T HMS- 1 + \->STR 3 6 SUB + 1 \->GROB PICT
  9.           { # 50h # Ah } ROT REPL
  10.           IF KEY
  11.           THEN 35 - NEG \-> K
  12.             \<<
  13.               IF K ABS DUP 10 == SWAP 1 == OR
  14.               THEN EM 'K' STO+
  15.                 IF K 11 \>= K 55 \<= K 10 MOD DUP 6 \=/ SWAP 0 \=/ AND AND AND
  16.                 THEN K POS2PT PICT OVER K 11 + POS2PT SUB PICT ROT EMPTY REPL
  17.                   PICT EM POS2PT ROT REPL K 'EM' STO 1 'KN' STO+ "KEYS: " KN
  18.                   \->STR + 1 \->GROB PICT { # 50h # 12h } ROT REPL
  19.                 END
  20.               END
  21.             \>>
  22.           END
  23.         END
  24.       \>>
  25.     \>>
  26.   CST { PLAY }
  27.   INIT
  28.     \<< RARR \-> RR
  29.       \<< ERASE { # 0h # 0h } PVIEW { # 9h # 9h } { # 3Dh # 3Dh } BOX 24 1
  30.         FOR N PIECE RR N GET GET PICT N 5 MOD 1 + N 5 / IP 1 + 10 * + POS2PT
  31.           ROT REPL -1
  32.         STEP
  33.       \>> PICT { # Ah # Ah } EMPTY REPL
  34.     \>>
  35.   RARR
  36.     \<< 1 24
  37.       FOR V V
  38.       NEXT 24 \->ARRY 24 1
  39.       FOR B B RAND * 1 + FLOOR \-> Q
  40.         \<< Q OVER SWAP GET SWAP B OVER SWAP GET Q SWAP PUT B ROT PUT
  41.         \>> -1
  42.       STEP
  43.     \>>
  44.   EMPTY
  45. GROB 11 11 FF70FF70FF70FF70FF70FF70FF70FF70FF70FF70FF70
  46.   POS2PT
  47.     \<< DUP 10 MOD 10 * R\->B SWAP 10 / IP 10 * R\->B 2 \->LIST
  48.     \>>
  49.   PIECE {
  50. GROB 11 11 FF70306010401340124012401240174010403060FF70
  51. GROB 11 11 FF70306010401740144017401140174010403060FF70
  52. GROB 11 11 FF70306010401740144017401440174010403060FF70
  53. GROB 11 11 FF70306010401540154017401440144010403060FF70
  54. GROB 11 11 FF70306010401740114017401440174010403060FF70
  55. GROB 11 11 FF70306010401640114017401540174010403060FF70
  56. GROB 11 11 FF70306010401740144012401140114010403060FF70
  57. GROB 11 11 FF70306010401740154017401540174010403060FF70
  58. GROB 11 11 FF70306010401740154017401440174010403060FF70
  59. GROB 11 11 FF7030601040D840945094509450D94010403060FF70
  60. GROB 11 11 FF7030601040DC40984098409840DD5010403060FF70
  61. GROB 11 11 FF7030601040DC5090509C509440DD5010403060FF70
  62. GROB 11 11 FF7030601040DC5090509C509050DD5010403060FF70
  63. GROB 11 11 FF7030601040D45094509C509050D15010403060FF70
  64. GROB 11 11 FF7030601040DC5094409C509050DD5010403060FF70
  65. GROB 11 11 FF7030601040D85094409C509450DD5010403060FF70
  66. GROB 11 11 FF7030601040DC50905098409440D54010403060FF70
  67. GROB 11 11 FF7030601040DC5094509C509450DD5010403060FF70
  68. GROB 11 11 FF7030601040DC5094509C509050DD5010403060FF70
  69. GROB 11 11 FF7030601040D9401550D5505450D94010403060FF70
  70. GROB 11 11 FF7030601040DD401940D9405840DD5010403060FF70
  71. GROB 11 11 FF7030601040DD501150DD505440DD5010403060FF70
  72. GROB 11 11 FF7030601040DD501150DD505050DD5010403060FF70
  73. GROB 11 11 FF7030601040D5501550DD505050D15010403060FF70
  74. }
  75. END
  76.